home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / sorting / sortcoll / image.cls next >
Encoding:
Text File  |  1995-12-30  |  575 b   |  27 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "VImage"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = False
  8. Option Explicit
  9.  
  10. Public Image As Object
  11. Public Size As Long
  12. Private prvFileName As String
  13.  
  14. Public Property Get FileName() As String
  15.    FileName = prvFileName
  16. End Property
  17.  
  18. Public Property Let FileName(S As String)
  19. Dim Pos, NewPos As Integer
  20.    NewPos = InStr(S, "\")
  21.    Do Until NewPos = 0
  22.       Pos = NewPos
  23.       NewPos = InStr(Pos + 1, S, "\")
  24.    Loop
  25.    prvFileName = Right$(S, Len(S) - Pos)
  26. End Property
  27.